<%
function get_allowed_chars(allowed, sing)
    Dim rst, sql, allowed_chars, i, arr
    i = 0
    Set rst = Server.CreateObject("ADODB.Recordset")
    if allowed = 1 then
        allowed = 1
    else
        allowed = 0
    end if
    if sing = 0 then
        sql = "SELECT GROUP_CONCAT(CHARACTERS SEPARATOR '') a FROM tbl_0905_pw_policy WHERE ALLOWED = '" & allowed & "'"
    else
        sql = "SELECT CHARACTERS a FROM tbl_0905_pw_policy WHERE ALLOWED = '" & allowed & "' AND ID = '" & sing & "'"
    end if
    rst.Open sql, objConn
    If Not rst.EOF Then
        get_allowed_chars = rst.Fields("a").Value
    End if
    rst.Close
end function
%>